5 DV=PEEK(186):IFDV<8THENDV=8
7 DIMW$(300)
10 POKE53281,0:POKE53280,0:PRINT"[147]"
12 SYS57812"INPUT ANY CE00",8,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
14 GOSUB60000
16 SYS52736,"CRYPTDATA 94",DV
18 H=PEEK(252)*256+PEEK(251)
19 GOTO90
20 OPEN4,4,7:CLOSE4
22 FL=0:POKE214,20:PRINT"[159]"
24 IFST=-128THENPRINTC$Q$:FL=1:GOTO28
26 PRINTC$U$:POKE198,0
28 GETA$:IFA$=""THEN28
29 RETURN
30 POKE214,23:PRINT
32 PRINT"   [193]NY KEY [155]- MORE    [210][197][212][213][210][206] [155]- MENU[159][145]":POKE198,0
34 GETA$:IFA$=""THEN34
36 FG=0:IFA$=CH$THENFG=1
38 RETURN
50 FORI=130TO150
52 IFW$(I)="*"THENX=I+1:I=150
54 NEXT
56 RETURN
90 V=53248
91 FORI=832TO876:POKEI,255:NEXT
92 FORI=0TO4:POKE2040+I,13:POKEV+39+I,6:NEXT
93 POKEV+16,0:POKEV+29,31:POKEV+27,31
94 FORI=0TO3:POKEV+2*I,70+I*48:POKEV+1+2*I,70:NEXT:POKEV+8,240:POKEV+9,70
100 PRINT"[147]"
101 CH$=CHR$(13):BK$="[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
102 FORI=0TO4:READB$(I):NEXT
103 DATA"[159] [195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210] "
104 DATA"  1. [208]RINT [195]RYPTIC           "
105 DATA"  2. [208]RINT/[214]IEW [211]OLUTION     "
106 DATA"  3. [208]RINT/[214]IEW [201]NSTRUCTIONS "
107 DATA"  4. [200]EAD [194]ACK TO [204][207][193][196][211][212][193][210]   "
108 P$="        [208]RESS A NUMBER       "
109 R$="    ([208])RINTER OR ([211])CREEN    "
110 E$="                             "
111 Q$=" [208]RINTER'S OFF!  [208]RESS A KEY "
112 U$=" [211]ET TOP OF FORM - PRESS KEY ":V$="  [208]RESS A KEY TO PRINT CLUES "
113 TP$="[191][191][191][191][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146][191][191][191][191]"
114 MD$="[191][191][191][191][221][159]                             [221][146][191][191][191][191]"
115 BT$="[191][191][191][191][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][191][191][191][191]"
116 C$=""
117 PP$="                                            "
118 F$="     ":G$="!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--!"
119 GOSUB50
120 FORI=1TO4:D$(I)=C$+E$+CH$+C$+B$(I)+CH$+C$+E$:NEXT
121 PRINT""BK$:PRINTTP$
122 FORI=0TO14:PRINTMD$:NEXT
124 PRINTBT$:PRINTBK$
126 PRINTTP$:FORI=0TO2:PRINTMD$:NEXT:PRINTBT$:PRINTBK$"[145][145][145][145][159]":PRINTC$P$
130 POKE214,2:PRINT:PRINTC$B$(0):PRINT""
132 POKEV+21,31
134 FORI=1TO5:PRINTC$B$(I):PRINT"":NEXT
158 POKE198,0
160 GETA$:IFA$<"1"ORA$>"4"THEN160
162 K=VAL(A$)
164 POKE214,K*3+1:PRINT:PRINT""D$(K)
166 ONKGOTO200,500,500,900
200 GOSUB20:IFFLTHEN120
210 OPEN4,4,7
215 FORI=0TO4:PRINT#4:NEXT
220 PRINT#4,"             [203][207][207][203][207][204][207][199][217] [210][197][193][210][211] [201][212][211] [213][199][204][217] [200][197][193][196]"
230 PRINT#4
240 PRINT#4,F$G$
241 PRINT#4,F$"! 1!  ! 2!  ! 3!  !##! 4! 5!  ! 6!  ! 7!  ! 8!"
242 PRINT#4,F$"!  !  !  !  !  !  !##!  !  !  !  !  !  !  !  !"
243 PRINT#4,F$G$
244 PRINT#4,F$"!  !##!  !##!  !##!##!##!  !##!  !##!  !##!  !"
245 PRINT#4,F$"!  !##!  !##!  !##!##!##!  !##!  !##!  !##!  !"
246 PRINT#4,F$G$
247 PRINT#4,F$"! 9!  !  !  !  !##!10!  !  !  !  !  !  !  !  !"
248 PRINT#4,F$"!  !  !  !  !  !##!  !  !  !  !  !  !  !  !  !"
249 PRINT#4,F$G$
250 PRINT#4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
251 PRINT#4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
252 PRINT#4,F$G$
253 PRINT#4,F$"!11!  !  !  !  !  !  !  !##!12!  !  !  !  !  !"
254 PRINT#4,F$"!  !  !  !  !  !  !  !  !##!  !  !  !  !  !  !"
255 PRINT#4,F$G$
256 PRINT#4,F$"!  !##!  !#[216]!  !##!  !##!13!##!  !##!##!##!  !"
257 PRINT#4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!##!##!  !"
258 PRINT#4,F$G$
259 PRINT#4,F$"!14!  !  !  !##!15!  !  !  !  !  !  !16!##!##!"
260 PRINT#4,F$"!  !  !  !  !##!  !  !  !  !  !  !  !  !##!##!"
261 PRINT#4,F$G$
262 PRINT#4,F$"!  !##!  !##!17!##!  !##!  !##!  !##!  !##!18!"
263 PRINT#4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
264 PRINT#4,F$G$
265 PRINT#4,F$"!##!##!19!  !  !  !  !  !  !  !##!20!  !  !  !"
266 PRINT#4,F$"!##!##!  !  !  !  !  !  !  !  !##!  !  !  !  !"
267 PRINT#4,F$G$
268 PRINT#4,F$"!21!##!##!##!  !##!  !##!  !##!22!##!  !##!  !"
269 PRINT#4,F$"!  !##!##!##!  !##!  !##!  !##!  !##!  !##!  !"
270 PRINT#4,F$G$
271 PRINT#4,F$"!23!  !24!  !  !  !##!25!  !  !  !  !  !  !  !"
272 PRINT#4,F$"!  !  !  !  !  !  !##!  !  !  !  !  !  !  !  !"
273 PRINT#4,F$G$
274 PRINT#4,F$"!  !##!  !##!  !##!26!##!  !##!  !##!  !##!  !"
275 PRINT#4,F$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
276 PRINT#4,F$G$
277 PRINT#4,F$"!27!  !  !  !  !  !  !  !  !##!28!  !  !  !  !"
278 PRINT#4,F$"!  !  !  !  !  !  !  !  !  !##!  !  !  !  !  !"
279 PRINT#4,F$G$
280 PRINT#4,F$"!  !##!  !##!  !##!  !##!##!##!  !##!  !##!  !"
281 PRINT#4,F$"!  !##!  !##!  !##!  !##!##!##!  !##!  !##!  !"
282 PRINT#4,F$G$
283 PRINT#4,F$"!29!  !  !  !  !  !  !  !##!30!  !  !  !  !  !"
284 PRINT#4,F$"!  !  !  !  !  !  !  !  !##!  !  !  !  !  !  !"
285 PRINT#4,F$G$
310 FORI=0TO16:PRINT#4:NEXT
312 POKE214,20:PRINT:PRINTC$V$:POKE198,0
313 GETA$:IFA$=""THEN313
315 Z=(H-X)/2-1
320 FORI=XTOX+Z
322 PRINT#4,W$(I);
324 PRINT#4,LEFT$(PP$,40-LEN(W$(I)))W$(I+33)
326 NEXT
332 PRINT#4:CLOSE4
334 GOTO120
500 IFK=3THEND1=1:D2=99:D3=49:D4=49
501 IFK=2THEND1=100:D2=X-1:D4=(D2-99)/2:D3=99+D4
502 POKE214,20:PRINT"[159]":PRINTC$R$:POKE198,0
503 GETK$:IFK$=""THEN503
504 IFK$="P"THEN550
506 IFK$="S"THEN510
508 GOTO120
510 POKEV+21,0:PRINT"[147][159]":FORI=D1TOD2
512 IFW$(I)<>"\"THEN520
514 GOSUB30:IFFGTHENI=D2:NEXT:PRINT"[147]":GOTO120
516 PRINT"[147]":I=I+1
520 IFW$(I)<>"*"THENPRINT" "W$(I)
524 NEXT
526 GOSUB30:IFFGTHENI=D2:PRINT"[147]":GOTO120
528 GOTO510
550 GOSUB20:IFFLTHEN120
552 OPEN4,4,7:FORI=0TO2:PRINT#4:NEXT
554 FORI=D1TOD3:L=LEN(W$(I))
555 IFW$(I)="\"THENPRINT#4," ";:GOTO557
556 PRINT#4," "W$(I);
557 IFW$(I+D4)="\"THENPRINT#4," ":GOTO560
558 PRINT#4,LEFT$(PP$,40-L)W$(I+D4)
560 NEXT
562 FORI=0TO63-D4+(K=3):PRINT#4:NEXT:CLOSE4
564 GOTO120
900 FORI=0TO1000:NEXT:POKEV+21,0
905 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
910 IFER<>63THENPRINT"[147]":END
920 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
930 PRINT"RUN"
940 POKE631,13:POKE632,13:POKE198,2:END
10000 OPEN15,8,15,"S0:CRYPTIC 94":CLOSE15:SAVE"CRYPTIC 94",8:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210]  #94":Z$(1)="BY [198]ENDER [212]UCKER
60040 Z$(2)[178]"(null)1.0 (LEN) 1992 BY (null)OFTDISK, RIGHT$NC."[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
60090 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
60100 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN